10 TEXT : HOME : VTAB (4): PRINT "THIS DEMO WILL MAKE TWO SETS OF HI-RES": PRINT : PRINT "PICTURES AND STORE THEM ALTERNATELY"
20 PRINT : PRINT "ON THE PICTURE DISK. THEN IT WILL": PRINT : PRINT "RECALL AND DISPLAY ALL SEVENTEEN": PRINT : PRINT "PICTURES AS FAST AS POSSIBLE."
30 PRINT CHR$(4)"BLOAD FASTPIX": CALL 768
40 PRINT : PRINT : PRINT "PUT A BLANK DISK (VOLUME 17) IN THE": PRINT : PRINT "DRIVE AND HIT ANY KEY . .";: GET A$: PRINT : HOME
50 HGR : FOR J = 0 TO 16 STEP 2: VTAB (22): PRINT "PICTURE #"J" ": FOR I = 0 TO 279 STEP J +2: HCOLOR= INT(8 * RND(1)): HPLOT 140,0 TO I,10 +7 *J TO 140,160: NEXT I: & J,2: NEXT J
60 HGR : FOR J = 1 TO 15 STEP 2: VTAB (22): PRINT "PICTURE #"J" ": FOR I = 0 TO 279 STEP J +2: HCOLOR= INT(8 * RND(1)): HPLOT 140,0 TO I,150 -7 *J TO 140,160: NEXT I: & J,2: NEXT J
70 TEXT : HOME : VTAB (8): HTAB (12): PRINT "HERE THEY COME!": FOR I = 1 TO 2000: NEXT : HGR : FOR J = 0 TO 16: VTAB (22): PRINT "PICTURE #"J" ": & J,1: NEXT